5 PRINTCHR$(147)"PRINT 24/40 **** ERASE 24/40":REM FOR DEMO ONLY
10 A$="IS THIS THE BOTTOM LINE OR WHAT?"
15 GOSUB2000:FORW=0TO1000:NEXT:GOSUB3000:END
2000 B$=LEFT$(A$,LEN(A$)-2)+RIGHT$(A$,1)
2005 POKE214,24:POKE211,(40-LEN(A$)):SYS58732
2010 PRINTB$+CHR$(157)CHR$(148)+MID$(A$,LEN(A$)-1,1)+CHR$(19):RETURN
3000 POKE214,24:POKE211,0:SYS58732
3005 PRINT"                                       "CHR$(20)CHR$(32)CHR$(19)
3010 RETURN